(syms_of_buffer): Make erase-buffer a disabled command.

diff --git a/src/buffer.c b/src/buffer.c
index 28091e763ead998a2d6c1e3f10b5f62e6f92f4c9..e254db179c72017403e38550674fd8bcda5cba15 100644 (file)
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -1402,6 +1402,8 @@ init_buffer ()
 /* initialize the buffer routines */
 syms_of_buffer ()
 {
+  extern Lisp_Object Qdisabled;
+
   staticpro (&Vbuffer_defaults);
   staticpro (&Vbuffer_local_symbols);
   staticpro (&Qfundamental_mode);
@@ -1417,6 +1419,8 @@ syms_of_buffer ()
   Fput (Qprotected_field, Qerror_message,
        build_string ("Attempt to modify a protected field"));
 
+  Fput (intern ("erase-buffer"), Qdisabled, Qt);
+
   /* All these use DEFVAR_LISP_NOPRO because the slots in
      buffer_defaults will all be marked via Vbuffer_defaults.  */